home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / boot_up / accswp03 / accswp03.lst next >
File List  |  1995-04-27  |  2KB  |  89 lines
  1. ' Accessory Swapper Version 0.3
  2. ' by Walter S. Wilson, 08 January 1995
  3. ' in GFA 3.5e
  4. '
  5. fsource$=UPPER$(CHAR{BASEPAGE+&H81})         ! command line
  6. '
  7. RESERVE 10000
  8. '
  9. linesize%=LEN(fsource$)
  10. check$=RIGHT$(fsource$,3)
  11. newsize%=linesize%-3
  12. tempaut1$=RIGHT$(fsource$,newsize%)
  13. '
  14. GOSUB firstcheck
  15. GOSUB get_drive
  16. GOSUB namething
  17. GOSUB end_thing
  18. ' ----------------------------> Procedures
  19. '
  20. > PROCEDURE firstcheck         !  Check command line integrity
  21.   '
  22.   IF fsource$=""
  23.     ALERT 1," You haven't read | the manual yet? ",1," Oops! ",b%
  24.     GOSUB end_thing
  25.   ENDIF
  26.   '
  27.   IF fsource$="H" OR fsource$="HELP" OR LEFT$(fsource$,1)="-"
  28.     ALERT 1," Sorry, I'm not | that kind of | program. ",1," Oops! ",b%
  29.     GOSUB end_thing
  30.   ENDIF
  31.   '
  32.   IF EXIST(fsource$)=FALSE
  33.     ALERT 1," Please specify an | existing file! ",1," Oops! ",b%
  34.     GOSUB end_thing
  35.   ENDIF
  36.   '
  37.   IF check$<>"ACC" AND check$<>"ACX"
  38.     ALERT 1," ACCessories and | AUTO folder | PRG's only! ",1," Oops!",b%
  39.     GOSUB end_thing
  40.   ENDIF
  41.   '
  42.   IF LEFT$(tempaut1$,4)="AUTO" AND check$<>"ACX" AND check$<>"ACC"
  43.     IF check$="PRG" OR check$="PRX"
  44.       GOSUB auto_thang
  45.       GOSUB end_thing
  46.     ENDIF
  47.   ENDIF
  48.   '
  49. RETURN
  50. > PROCEDURE get_drive          !  Current drive and destination path
  51.   '
  52.   drive%=GEMDOS(25)
  53.   dr$=CHR$(65+drive%)+":\"
  54.   '
  55. RETURN
  56. > PROCEDURE namething          !  Figure out extension and rename
  57.   '
  58.   tempfsource$=LEFT$(fsource$,newsize%)
  59.   '
  60.   IF check$="ACC"
  61.     munama$=tempfsource$+"ACX"
  62.   ELSE IF check$="ACX"
  63.     munama$=tempfsource$+"ACC"
  64.   ENDIF
  65.   '
  66.   NAME fsource$ AS munama$
  67.   '
  68. RETURN
  69. > PROCEDURE auto_thang
  70.   '
  71.   tempfsource$=LEFT$(fsource$,newsize%)
  72.   '
  73.   IF check$="PRG"
  74.     munama$=tempfsource$+"PRX"
  75.   ELSE IF check$="PRX"
  76.     munama$=tempfsource$+"PRG"
  77.   ENDIF
  78.   '
  79.   NAME fsource$ AS munama$
  80.   '
  81. RETURN
  82. '
  83. > PROCEDURE end_thing          !  THE END
  84.   '
  85.   RESERVE
  86.   SYSTEM
  87.   '
  88. RETURN
  89.